<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Include/conn.asp" -->
<!--#include file="../Include/config.asp" -->
<%ID=request.QueryString("Cid")
Page=Request.QueryString("page")
if ID="" or not isnumeric(ID) then alertMsgAndGo "参数错误","-1"

if page="" then
   page=1
elseif not IsNumeric(page) then
   Response.Write "<script>alert('参数错误！');javascript:history.go(-1);</script>" 
   response.end
end if
page=int(page)
set rs=server.createobject("adodb.recordset") 
exec="select * from content where Cid="&ID
rs.open exec,conn,1,1
if rs.eof and rs.bof then
	alertMsgAndGo "参数错误","-1"
end if
	Cid=rs("Cid")
	SortID=rs("SortID")
	SortType=rs("SortType")
	Title=rs("Title")
	Author=rs("Author")
	laiyuan=rs("laiyuan")
	Content=rs("Content")		
	isok=rs("isok")		
	IsTop=rs("IsTop")		
	tuijian=rs("tuijian")		
	tuwen=rs("tuwen")		
	IsHeadline=rs("IsHeadline")		
	IsFeatured=rs("IsFeatured")		
	IsGenerated=rs("IsGenerated")		
	ImagePath=rs("ImagePath")		
	img=rs("img")
	yrmb=rs("yrmb")
	xrmb=rs("xrmb")		
	DownURL=rs("DownURL")
	TopSortID=rs("TopSortID")		
	PageTitle=rs("PageTitle")
	Keywords=rskeyword(rs("PageKeywords"),zychkeywords)		
	Desc=rskeyword(rs("PageDesc"),zychkeywords)
	IsNoComment=rs("IsNoComment")			
	Star=rs("Star")							
	px_id=rs("px_id")		
	Visits=rs("Visits")		
	AddTime=rs("AddTime")
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset") 
exec="select * from zych_Type where SortID="&SortID
rs.open exec,conn,1,1
if rs.eof and rs.bof then
	alertMsgAndGo "参数错误","-1"
end if
	SortPath_dh=rs("SortPath")
	TopSortID=rs("TopSortID")
	TopSort="type"&TopSortID
	sTemp=rs("sTemp")
rs.close
set rs=nothing

If addtime>now() Then
	HtmlContent=ob_get_contents("../Include/Off.html")
	HtmlContent = Replace(HtmlContent,"{zych:tishi}","此文章需要在"&addtime&"后才会发布！")
	echo TqcmsReadtemp(HtmlContent)
else

	if file_exists(zych_templatedir&sTemp)=True then HtmlContent=ob_get_contents(zych_templatedir&sTemp)
    if file_exists(zych_templatedir&sTemp)=False then HtmlContent=ob_get_contents(zych_templatedir&"d_show.asp")

    echo TqcmsReadtemp(HtmlContent)
   
end if
%>

